Option Explicit
Sub C_Sample003()
    Dim myRng(1 To 3) As Range				
    Dim i             As Long
    For i = 1 To 3
        Set myRng(i) = Cells(i, 1)				'wJؼxs
    Next
    Cells.Clear								'xs檺M
    'ǳƨ즹
    myRng(1).Value = "ABC"					'bC@CW]wJ
    myRng(2).Value = "'0123"
    With myRng(3)
        .NumberFormatLocal = "@"
        .Value = "0123"
    End With
    Erase myRng
End Sub
